2630 IF INCC%<127 AND INCC%>31 AND INLE%<INLM% THEN IN$=KEXT$(IN$,0):COUNTA%=0:WHILE(COUNTA%<=INLE%-INCU%-1):INCH%(INLE%-COUNTA%)=INCH%(INLE%-COUNTA%-1):COUNTA%=COUNTA%+1:WEND:INCH%(INCU%)=ASC(IN$):INLE%=INLE%+1:INCU%=INCU%+1
3450 COLOR ,,[(GRCO% AND 1)*255*COUNTA%/(DEN%-1),(GRCO% AND 4)/4*RP*(RP<=255)*(RP>=0),(GRCO% AND 2)/2*255*COUNTB%/(DEN%-1)]:LINE (PX%,PY%)-(PX1%,PY1%),PSET
4840 IF WHIA%=ASC("+") OR WHIA%=ASC("-") THEN IFB(2*IFN%)=0
4850 REM == IFUN$の書き換え
4860 REM == IFUN$の部分消去
4870 WHIB%=CURA%:WHIC=0
4880 WHIA%=PEEK(IFAD&+CURA%,1)
4890 IF WHIA%=ASC("+") OR WHIA%=ASC("-") OR WHIA%=ASC("*") OR WHIA%=ASC("/") OR WHIA%=ASC("^") OR WHIA%=ASC(")") OR CURA%=CURM%+1 THEN WHIC=WHIC+1:IF WHIC=2 THEN 4940